home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0052_Dealing Poker.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  496b  |  22 lines
  1. { ANDY MCFARLAND }
  2.  
  3. Var
  4.   pick : Array [1..52] of Byte;
  5.   i, n,
  6.   temp : Word;
  7.  
  8. begin
  9.   { start With an ordered deck }
  10.   For i := 1 to 52 do
  11.      pick[i] := i ;
  12.  
  13.   For i:= 52 downto 2 do
  14.   begin                       { [i+1..52] has been shuffled }
  15.      { pick any card in the unshuffled part of the deck }
  16.      n := random(i) + 1 ;     { N in [1..i] }
  17.      temp := pick[n] ;        { exchange pick[i] pick[n] }
  18.      pick[n] := pick[i] ;
  19.      pick[i] := temp ;
  20.   end ;
  21. end;
  22.